Make special-key matching case sensitive

diff --git a/which-key.el b/which-key.el
index 175832175f6603989ca39ec84b0d9a5742d6369d..af8e88edd6925af884780231d7702b5c43bb1ade 100644 (file)
--- a/which-key.el
+++ b/which-key.el
@@ -1117,7 +1117,8 @@ If KEY contains any \"special keys\" defined in
   (let ((key-w-face (propertize key 'face 'which-key-key-face))
         (regexp (concat "\\("
                         (mapconcat 'identity which-key-special-keys
-                                   "\\|") "\\)")))
+                                   "\\|") "\\)"))
+        case-fold-search)
     (save-match-data
       (if (and which-key-special-keys
                (string-match regexp key))